# randomize author order
aut <- c('Marcus Beck', 'Kirsten Dorans', 'Jessica Renee Henkel', 'Kathryn Ireland', 'Ed Sherwood', 'Patricia Varela') %>%
sample %>%
paste(collapse = ', ') %>%
cat('By', .)
By Kathryn Ireland, Jessica Renee Henkel, Marcus Beck, Patricia Varela, Ed Sherwood, Kirsten Dorans